home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 February / 64er_Magazin_86-02_1986_Markt__Technik_de.d64 / sound-editor + (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  23KB  |  1,189 lines
  1. 0 ifa>1thenreturn
  2. 1000 :
  3. 1005 :
  4. 1010 :
  5. 1015 :
  6. 1020 :
  7. 1025 :
  8. 1030 :
  9. 1035 :
  10. 1040 :
  11. 1045 :
  12. 1050 :
  13. 1055 :
  14. 1060 ifw=0thenw=1:load"wersi",8,1
  15. 1065 ifm=7then7665
  16. 1068 ifm=7.5then7960
  17. 1070 :
  18. 1080 ifa=0thena=.1:load"modulator",8,1
  19. 1082 ifa=.1thena=.2:load"sequencer.obj",8,1
  20. 1084 ifa=.2thena=1:load"seq.erg.obj",8,1
  21. 1120 :
  22. 1130 ifa=0thena=1:load"modulator",8,1
  23. 1140 :
  24. 1150 :
  25. 1155 poke56,144:clr
  26. 1160 dimv%(8,255),tn%(255),th(49)
  27. 1165 dimbf(2),t(2),o(2),of(2),s(2)
  28. 1170 dimc1(2),c(2),ad(2),sr(2)
  29. 1175 dimbl$(6),kv$(3),kf$(6),md$(3)
  30. 1180 dimtn$(11)
  31. 1185 :
  32. 1190 gosub8000
  33. 1200 gosub4000
  34. 1210 :
  35. 1500 :
  36. 1510 :
  37. 1520 :
  38. 1530 sys51300:geta$:ifa$=""then1530
  39. 1535 ifa$="[215]"thengosub20000:goto1530
  40. 1540 a=asc(a$)
  41. 1550 sysgs,v%(m,a)
  42. 1560 goto1530
  43. 2000 :
  44. 2010 :
  45. 2020 :
  46. 2025 poke650,0
  47. 2030 f=th(tn%(a)):ad=mo+72:x=peek(ad)
  48. 2035 ifs(0)thensysdo,mo,f*bf(0):pokesi+4,c1(0)
  49. 2040 ifs(1)thensysdo,mo+7,f*bf(1):pokesi+11,c1(1)
  50. 2050 ifs(2)thensysdo,mo+14,f*bf(2):pokesi+18,c1(2)
  51. 2090 ifegthenpokead,xor1
  52. 2110 ifsuthenpoke650,128:return
  53. 2120 ifpeek(203)<>64andpeek(198)=0then2120
  54. 2130 pokead,xand254
  55. 2140 pokesi+4,c(0)
  56. 2150 pokesi+11,c(1):pokesi+18,c(2)
  57. 2160 poke650,128:return
  58. 2500 :
  59. 2510 :
  60. 2520 :
  61. 2530 :
  62. 2550 pw=pw+p2:ifpw>=pmthenpw=pw-pm
  63. 2555 sysgt,pv
  64. 2560 pw=pw+p1:ifpw>=pmthenpw=pw-pm
  65. 2565 sysgt,pv
  66. 2570 pw=pw-p1:ifpw<0thenpw=pw+pm
  67. 2575 sysgt,pv
  68. 2580 pw=pw-p2:ifpw<0thenpw=pw+pm
  69. 2585 sysgt,pv
  70. 2600 :
  71. 2605 :
  72. 2610 sysdo,pa,pw:l=len(str$(pw))
  73. 2620 syspr,3+ln,4,bl$(6-l);f2$;pw
  74. 2625 return
  75. 2630 :
  76. 2635 :
  77. 2640 pokepa,pw:l=len(str$(pw))
  78. 2650 syspr,3+ln,11,bl$(4-l);f2$;pw
  79. 2655 return
  80. 2660 :
  81. 2665 :
  82. 2670 pokepa,pw:l=len(str$(pw))
  83. 2680 syspr,3+ln,16,bl$(4-l);f2$;pw
  84. 2685 return
  85. 2690 :
  86. 2695 :
  87. 2700 ifa>136ora<133thenreturn
  88. 2705 b=a-133
  89. 2710 pokepa,(peek(pa)and231)or(b*8)
  90. 2715 syspr,3+ln,21,f2$;kv$(b)
  91. 2717 syspr,6,34,f2$;kf$(b):return
  92. 2720 :
  93. 2725 :
  94. 2730 ifa>135ora<133thenreturn
  95. 2735 b=a-132
  96. 2740 pokepa,(peek(pa)and249)or(b*2)
  97. 2745 syspr,3+ln,28,f2$;md$(b):return
  98. 2750 :
  99. 2755 :
  100. 2760 pokepa,pw:l=len(str$(pw))
  101. 2765 syspr,7,s,bl$(4-l);f2$;pw:return
  102. 2770 :
  103. 2775 :
  104. 2780 b=-(a>134)
  105. 2785 pokepa,(peek(pa)and247)or(b*8)
  106. 2790 syspr,7,29,f2$;chr$(43+2*b)
  107. 2795 return
  108. 2810 :
  109. 2815 :
  110. 2820 ifa>135ora<133thenreturn
  111. 2825 b=a-132
  112. 2830 pokepa,(peek(pa)and249)or(b*2)
  113. 2835 syspr,7,33,f2$;md$(b):return
  114. 2840 :
  115. 2845 :
  116. 2850 pokepa,pwand7:pokepa+1,int(pw/8)
  117. 2855 l=len(str$(pw))
  118. 2860 syspr,5,2,bl$(5-l);f2$;pw:return
  119. 2865 :
  120. 2870 :
  121. 2875 rf=(rfand15)+16*pw:pokepa,rf
  122. 2880 l=len(str$(pw))
  123. 2885 syspr,5,9,bl$(3-l);f2$;pw:return
  124. 2890 :
  125. 2895 :
  126. 2900 ifa>136ora<133thenreturn
  127. 2905 b=a-133
  128. 2910 x=2^b:x1=255-x
  129. 2915 y=rfandx
  130. 2920 rf=(rfandx1)or(x-y):pokepa,rf
  131. 2925 y=-128*(y=0):ad=1024+(5+b)*40+15
  132. 2930 fori=adtoad+5
  133. 2935 pokei,(peek(i)and127)ory
  134. 2940 next:return
  135. 2945 :
  136. 2950 :
  137. 2955 ifa>136ora<133thenreturn
  138. 2960 b=a-129
  139. 2965 x=2^b:x1=255-x
  140. 2970 pw=peek(pa):y=pwandx
  141. 2975 pokepa,(pwandx1)or(x-y)
  142. 2980 y=-128*(y=0):ad=1024+(1+b)*40+25
  143. 2985 fori=adtoad+3
  144. 2990 pokei,(peek(i)and127)ory
  145. 2995 next:return
  146. 3000 :
  147. 3005 :
  148. 3010 pokepa,(peek(pa)and240)orpw
  149. 3015 l=len(str$(pw))
  150. 3020 syspr,5,31,bl$(3-l);f2$;pw:return
  151. 3050 :
  152. 3052 :
  153. 3054 ifa<>134then3064
  154. 3056 :
  155. 3058 of=of+1:ifof<=50then3110
  156. 3062 of=-49:goto3076
  157. 3064 ifa<>135then3074
  158. 3066 :
  159. 3068 of=of-1:ifof>=-49then3110
  160. 3072 of=50:goto3084
  161. 3074 ifa<>133then3082
  162. 3076 :
  163. 3078 t=t+1:ift<=11then3110
  164. 3080 t=0:goto3090
  165. 3082 ifa<>136thenreturn
  166. 3084 :
  167. 3086 t=t-1:ift>=0then3110
  168. 3088 t=11:goto3096
  169. 3090 :
  170. 3092 o=o+1:ifo<=5then3110
  171. 3094 o=0:goto3110
  172. 3096 :
  173. 3098 o=o-1:ifo>=0then3110
  174. 3100 o=5:t=10
  175. 3110 :
  176. 3112 ift=11ando=5thent=0:o=0
  177. 3114 bf=440*2^(o-4+(t-9)/12+of/1200)
  178. 3116 o(sn)=o:t(sn)=t:of(sn)=of
  179. 3118 bf(sn)=bf*17.0327
  180. 3120 sysdo,mo+7*sn,f*bf(sn)
  181. 3122 :
  182. 3124 syspr,3+sn,3,f2$;o
  183. 3126 syspr,3+sn,2,tn$(t)
  184. 3128 syspr,3+sn,5,right$(" "+str$(of),3)
  185. 3130 return
  186. 3150 :
  187. 3155 :
  188. 3160 sysdo,pa,pw
  189. 3165 syspr,3+sn,9,f2$;right$("  "+str$(pw),4)
  190. 3170 return
  191. 3175 :
  192. 3180 :
  193. 3185 ad(sn)=(ad(sn)and15)orpw*16
  194. 3190 pokepa,ad(sn)
  195. 3195 syspr,3+sn,14,f2$;right$(str$(pw),2)
  196. 3200 return
  197. 3205 :
  198. 3210 :
  199. 3215 ad(sn)=(ad(sn)and240)orpw
  200. 3220 pokepa,ad(sn)
  201. 3225 syspr,3+sn,17,f2$;right$(str$(pw),2)
  202. 3230 return
  203. 3235 :
  204. 3240 :
  205. 3245 sr(sn)=(sr(sn)and15)orpw*16
  206. 3250 pokepa,sr(sn)
  207. 3255 syspr,3+sn,20,f2$;right$(str$(pw),2)
  208. 3260 return
  209. 3265 :
  210. 3270 :
  211. 3275 sr(sn)=(sr(sn)and240)orpw
  212. 3280 pokepa,sr(sn)
  213. 3285 syspr,3+sn,23,f2$;right$(str$(pw),2)
  214. 3290 return
  215. 3300 :
  216. 3305 :
  217. 3310 ifa<>133anda<>134then3335
  218. 3315 :
  219. 3320 c(sn)=c(sn)or2^(7-s)
  220. 3325 c1(sn)=c(sn)or1
  221. 3330 syspr,3+sn,26+s,f2$;"1":goto3355
  222. 3335 :
  223. 3340 c(sn)=c(sn)and255-2^(7-s)
  224. 3345 c1(sn)=c(sn)or1
  225. 3350 syspr,3+sn,26+s,f2$;"0"
  226. 3355 :
  227. 3358 poke50334+sn,c(sn)
  228. 3360 x=c(sn):ifsuthenx=c1(sn)
  229. 3362 poke984+sn,c(sn):poke987+sn,c1(sn)
  230. 3365 pokesi+7*sn+4,x:return
  231. 3370 :
  232. 3375 :
  233. 3380 pokepa,pw:l=len(str$(pw))
  234. 3385 syspr,3+sn,34,bl$(4-l);f2$;pw
  235. 3390 return
  236. 3400 :
  237. 3405 :
  238. 3410 ifpw<40thenpw=40
  239. 3415 ifpw>480thenpw=480
  240. 3420 te=pw:sysdo,pa,int(6e7/(24*te))
  241. 3425 syspr,6,11,f2$;right$(str$(pw),3)
  242. 3430 return
  243. 3500 :
  244. 3510 :
  245. 3520 :
  246. 3525 syspr,15,10,f2$;"stimme 1,2,3"
  247. 3530 geta$:ifa$=""then3530
  248. 3540 ifa$="1"ora$="2"ora$="3"then3560
  249. 3550 goto3590
  250. 3560 i=val(a$)-1:s(i)=nots(i)
  251. 3565 poke981+i,abs(s(i))
  252. 3570 ifs(i)thenprintchr$(18);
  253. 3580 syspr,21,31+2*i,f1$;a$;chr$(146);
  254. 3590 syspr,15,10,f1$;"stimme 1,2,3"
  255. 3595 return
  256. 3600 :
  257. 3610 :
  258. 3620 :
  259. 3630 poke650,64
  260. 3640 ad=mo+27:x=peek(ad):pokead,xor1
  261. 3650 ifpeek(203)<>64andpeek(198)=0then3650
  262. 3660 pokead,xand254:poke650,128:return
  263. 3700 :
  264. 3710 :
  265. 3720 :
  266. 3730 eg=noteg
  267. 3735 poke990,abs(eg)
  268. 3740 ifegthenprintchr$(18);
  269. 3750 syspr,23,31,f1$;"soft-eg[146]":return
  270. 3800 :
  271. 3810 :
  272. 3820 :
  273. 3830 su=notsu
  274. 3835 poke991,abs(su)
  275. 3840 poke50344,-su:ifsuthenprintchr$(18);
  276. 3850 syspr,22,31,f1$;"sustain[146]"
  277. 3860 ifnotsuthen2140
  278. 3870 return
  279. 4000 :
  280. 4010 :
  281. 4020 :
  282. 4030 m=0:pv=0:syscl:print"";f1$
  283. 4040 print" [176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
  284. 4045 print" [194]         m o d u l a t o r          [146][194]"
  285. 4050 print" [194]     thomas kraetzig       1985     [146][194]"
  286. 4055 print" [173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
  287. 4100 syspr,6,1,f2$;"sh v";f1$;" stimmen"
  288. 4105 syspr,7,1,f2$;"   f";f1$;" filter/lautstaerke"
  289. 4110 syspr,8,1,f2$;"   l";f1$;" lfo"
  290. 4115 syspr,9,1,f2$;"   h";f1$;" huellkurve (soft-eg)"
  291. 4120 syspr,10,1,f2$;"   k";f1$;" ksv "
  292. 4125 syspr,11,1,f2$;"sh s";f1$;" sounds"
  293. 4130 syspr,12,1,f2$;"   d";f1$;" disk"
  294. 4132 syspr,13,1,f2$;"   a";f1$;" sequencer"
  295. 4135 return
  296. 4200 :
  297. 4210 :
  298. 4220 :
  299. 4240 syspr,15,1,f2$;"v 1,2,3"
  300. 4245 syspr,15,10,f1$;"stimme 1,2,3
  301. 4250 [158]pr,15,26,f2$;"s"
  302. 4255 [158]pr,15,32,f1$;"sustain"
  303. 4260 [158]pr,16,1,f2$;"sh space"
  304. 4270 [158]pr,16,10,f1$;"eg (ab)-koppeln)"
  305. 4280 [158]pr,16,26,f2$;"space"
  306. 4290 [158]pr,16,32,f1$;"eg  gate"
  307. 4292 [158]pr,17,1,f2$;"x"
  308. 4294 [158]pr,17,10,f1$;"hauptmenue"
  309. 4295 [158]pr,18,1,;"sh w     wersiboard stimmen"
  310. 4300 [158]pr,19,0,f2$;
  311. 4310 [129]i[178]1[164]4
  312. 4320 [153]"  peek peek peek peek peek peek peek peek peek peek peek peek peek peek wait":[130]
  313. 4330 [153]" qpeekwpeekepeekrpeektpeekypeekupeekipeekopeekppeek@peek*peek^peek;peek="
  314. 4340 [158]pr,19,0,;
  315. 4350 [129]i[178]1[164]2
  316. 4360 [153]"           ":[130]
  317. 4370 [153]" 2356790-\c"
  318. 4380 [158]pr,19,31,f1$;"aktiv:"
  319. 4390 [129]i[178]0[164]2
  320. 4400 a$[178][201]([196](i[170]1),1)
  321. 4410 [141]3570:[130]i
  322. 4420 [141]3840:[141]3740
  323. 4430 [142]
  324. 4500 :
  325. 4505 :
  326. 4510 :
  327. 4515 m[178]1:pv[178]3050:[158]cl:[153]"wait";f1$
  328. 4520 [153]"     f    pw   a  d  s  r control porta"
  329. 4525 [153]" orlenlenlenlenlenlen=lenlenlenlen=lenlen=lenlen=lenlen=lenlen=lenlenlenlenlenlenlen=lenlenlenlen^"
  330. 4530 [129]i[178]1[164]3
  331. 4535 [153]" peek      peek    peek  peek  peek  peek  peek       peek    peek"
  332. 4540 [130]i
  333. 4545 [153]" /lenlenlenlenlenlen>lenlenlenlen>lenlen>lenlen>lenlen>lenlen>=======>lenlenlenlenexp"
  334. 4550 [158]pr,7,26,"peekpeekpeekpeekpeekpeek/lenlensync"
  335. 4555 [158]pr,8,26,"peekpeekpeekpeekpeek/lenlenring"
  336. 4560 [158]pr,9,1,f2$;"f1  ++";f1$
  337. 4565 [158]pr,9,26,"peekpeekpeekpeek/lenlentest"
  338. 4570 [158]pr,10,1,f2$;"f3  +";f1$
  339. 4575 [158]pr,10,26,"peekpeekpeek/lenlentrian"
  340. 4580 [158]pr,11,1,f2$;"f5  -";f1$
  341. 4585 [158]pr,11,26,"peekpeek/lenlensawtooth"
  342. 4590 [158]pr,12,1,f2$;"f7  --";f1$
  343. 4595 [158]pr,12,26,"peek/lenlensquare"
  344. 4600 [158]pr,13,26,"/lenlennoise"
  345. 4602 :
  346. 4604 a$[178]f2$:f2$[178]f1$
  347. 4606 [129]sn[178]0[164]2
  348. 4608 t[178]t(sn):o[178]o(sn):of[178]of(sn)
  349. 4610 [141]3122
  350. 4612 pw[178]([183](mo[170]7[172]sn[170]2)):[141]3165
  351. 4614 pw[178][181](ad(sn)[173]16):[141]3195
  352. 4616 pw[178]ad(sn)[175]15:[141]3225
  353. 4618 pw[178][181](sr(sn)[173]16):[141]3255
  354. 4620 pw[178]sr(sn)[175]15:[141]3285
  355. 4622 :
  356. 4624 b[178]c(sn):a[178]128
  357. 4626 [158]pr,3[170]sn,26,f1$;"0000000"
  358. 4628 [129]s[178]7[164]1[169][171]1
  359. 4630 [139](b[175]a)[167][158]pr,3[170]sn,33[171]s,"1"
  360. 4632 a[178]a[173]2:[130]s
  361. 4634 pa[178]mo[170]7[172]sn[170]4:pw[178][194](pa)
  362. 4636 [141]3370
  363. 4638 [130]sn
  364. 4640 f2$[178]a$
  365. 4642 sn[178]0:av[178]4700:[158]gs,av:[142]
  366. 4650 :
  367. 4652 :
  368. 4654 :
  369. 4656 sn[178]sn[171]1:[139]sn[179]0[167]sn[178]2
  370. 4658 [141]5815:[158]gt,av
  371. 4660 :
  372. 4662 sn[178]sn[170]1:[139]sn[177]2[167]sn[178]0
  373. 4664 [141]5815:[158]gt,av
  374. 4666 :
  375. 4668 [139]av[179][177]4880[167]4674
  376. 4670 s[178]s[170]1:[139]s[177]6[167]av[178]4910
  377. 4672 [137]4678
  378. 4674 av[178]av[170]30:[139]av[177]4910[167]av[178]4700
  379. 4676 [139]av[178]4880[167]s[178]0
  380. 4678 [141]5815:[158]gt,av
  381. 4680 :
  382. 4682 [139]av[179][177]4880[167]4688
  383. 4684 s[178]s[171]1:[139]s[179]0[167]av[178]4850
  384. 4686 [137]4692
  385. 4688 av[178]av[171]30:[139]av[179]4700[167]av[178]4910
  386. 4690 [139]av[178]4880[167]s[178]6
  387. 4692 [141]5815:[158]gt,av
  388. 4700 :
  389. 4702 :
  390. 4704 pb[178]fa[170]40[172](sn[170]3)[170]2
  391. 4706 [129]i[178]pb[164]pb[170]5:[151]i,f2:[130]
  392. 4708 t[178]t(sn):o[178]o(sn):of[178]of(sn)
  393. 4710 pa[178]mo[170]7[172]sn:pv[178]3050:[142]
  394. 4730 :
  395. 4732 :
  396. 4734 pb[178]fa[170]40[172](sn[170]3)[170]9
  397. 4736 [129]i[178]pb[164]pb[170]3:[151]i,f2:[130]
  398. 4738 pa[178]mo[170]7[172]sn[170]2:pw[178][183](pa):pm[178]4096
  399. 4740 p1[178]1:p2[178]50:pv[178]3150:[142]
  400. 4760 :
  401. 4762 :
  402. 4764 pb[178]fa[170]40[172](sn[170]3)[170]14
  403. 4766 [151]pb,f2:[151]pb[170]1,f2
  404. 4768 pa[178]si[170]7[172]sn[170]5:pw[178][181](ad(sn)[173]16)
  405. 4770 pm[178]16:p1[178]1:p2[178]1:pv[178]3175:[142]
  406. 4790 :
  407. 4792 :
  408. 4794 pb[178]fa[170]40[172](sn[170]3)[170]17
  409. 4796 [151]pb,f2:[151]pb[170]1,f2
  410. 4798 pa[178]si[170]7[172]sn[170]5:pw[178]ad(sn)[175]15
  411. 4800 pm[178]16:p1[178]1:p2[178]1:pv[178]3205:[142]
  412. 4820 :
  413. 4822 :
  414. 4824 pb[178]fa[170]40[172](sn[170]3)[170]20
  415. 4826 [151]pb,f2:[151]pb[170]1,f2
  416. 4828 pa[178]si[170]7[172]sn[170]6:pw[178][181](sr(sn)[173]16)
  417. 4830 pm[178]16:p1[178]1:p2[178]1:pv[178]3235:[142]
  418. 4850 :
  419. 4852 :
  420. 4854 pb[178]fa[170]40[172](sn[170]3)[170]23
  421. 4856 [151]pb,f2:[151]pb[170]1,f2
  422. 4858 pa[178]si[170]7[172]sn[170]6:pw[178]sr(sn)[175]15
  423. 4860 pm[178]16:p1[178]1:p2[178]1:pv[178]3265:[142]
  424. 4880 :
  425. 4882 :
  426. 4884 pb[178]fa[170]40[172](sn[170]3)[170]26[170]s
  427. 4886 [151]pb,f2
  428. 4888 pa[178]si[170]7[172]sn[170]4:pv[178]3300:[142]
  429. 4910 :
  430. 4912 :
  431. 4914 pb[178]fa[170]40[172](sn[170]3)[170]35
  432. 4916 [129]i[178]0[164]2:[151]pb[170]i,f2:[130]
  433. 4918 pa[178]mo[170]7[172]sn[170]4:pw[178][194](pa):pm[178]256
  434. 4920 p1[178]1:p2[178]10:pv[178]3370:[142]
  435. 5000 :
  436. 5005 :
  437. 5010 :
  438. 5015 m[178]2:pv[178]0:[158]cl:[153]"wait";f1$
  439. 5020 [153]"filter/lautstaerke"
  440. 5025 [153]" orlenlenlenlenlen=lenlenlenlenlen=lenlenlenlenlenlenlenlen=lenlenlenlenlenlenlen=lenlenlenlen^"
  441. 5030 [153]" peekfiltfpeek res peekschalterpeek modus peeklautpeek"
  442. 5035 [153]" -lenlenlenlenlen(NULL)lenlenlenlenlen(NULL)lenlenlenlenlenlenlenlen(NULL)lenlenlenlenlenlenlen(NULL)lenlenlenlen<"
  443. 5040 [153]" peek     peek     peek filt1  peek   lp  peek    peek"
  444. 5045 [153]" -lenlenlenlenlen>lenlenlenlenlen< filt2  peek   bp  -lenlenlenlenexp"
  445. 5050 [153]" peek           peek filt3  peek   hp  peek"
  446. 5055 [153]" peek           peek filtex peek  3off peek"
  447. 5060 [153]" /lenlenlenlenlenlenlenlenlenlenlen>lenlenlenlenlenlenlenlen>lenlenlenlenlenlenlenexp"
  448. 5065 [153]f2$;" f1";f1$;"    ++      filt1      lp    ++"
  449. 5070 [153]f2$;" f3";f1$;"    +       filt2      bp    +"
  450. 5075 [153]f2$;" f5";f1$;"    -       filt3      hp    -"
  451. 5080 [153]f2$;" f7";f1$;"    -       filtex    3off   --"
  452. 5085 pw[178]([194](mo[170]21)[175]7)[170]8[172][194](mo[170]22)
  453. 5090 [158]pr,5,7[171][195]([196](pw)),pw
  454. 5095 pw[178][181](rf[173]16)
  455. 5100 [158]pr,5,12[171][195]([196](pw)),pw
  456. 5102 [139]rf[175]1[167][158]pr,5,15,"filt1 wait"
  457. 5104 [139]rf[175]2[167][158]pr,6,15,"filt2 wait"
  458. 5106 [139]rf[175]4[167][158]pr,7,15,"filt3 wait"
  459. 5108 [139]rf[175]8[167][158]pr,8,15,"filtexwait"
  460. 5110 pw[178][194](mo[170]23)
  461. 5112 [139]pw[175]16[167][158]pr,5,25," lp wait"
  462. 5114 [139]pw[175]32[167][158]pr,6,25," bp wait"
  463. 5116 [139]pw[175]64[167][158]pr,7,25," hp wait"
  464. 5118 [139]pw[175]128[167][158]pr,8,25,"3offwait"
  465. 5120 pw[178][194](mo[170]23)[175]15
  466. 5122 [158]pr,5,34[171][195]([196](pw)),pw
  467. 5125 av[178]5200:[158]gs,av:[142]
  468. 5130 :
  469. 5135 :
  470. 5140 :
  471. 5145 av[178]av[170]50:[139]av[177]5400[167]av[178]5200
  472. 5150 [137]5165
  473. 5155 :
  474. 5160 av[178]av[171]50:[139]av[179]5200[167]av[178]5400
  475. 5165 [141]5815:a[178]pb[171]fa[171]200
  476. 5170 [139]a[179][177]15[175]a[179][177]25[167][158]gt,av
  477. 5175 [129]j[178]1[164]3:pb[178]pb[170]40:[141]5815:[130]
  478. 5180 pb[178]pb[171]120:[158]gt,av
  479. 5200 :
  480. 5205 :
  481. 5210 pb[178]fa[170]203
  482. 5215 [129]i[178]pb[164]pb[170]3:[151]i,f2:[130]
  483. 5220 pa[178]mo[170]21:pw[178][194](pa)[170]8[172][194](pa[170]1)
  484. 5225 pm[178]2048:p1[178]1:p2[178]50:pv[178]2850:[142]
  485. 5250 :
  486. 5255 :
  487. 5260 pb[178]fa[170]210
  488. 5265 [151]pb,f2:[151]pb[170]1,f2
  489. 5270 pa[178]si[170]23:pw[178][181](rf[173]16)
  490. 5275 pm[178]16:p1[178]1:p2[178]1:pv[178]2875:[142]
  491. 5300 :
  492. 5310 pb[178]fa[170]215
  493. 5315 [129]i[178]0[164]120[169]40:[129]j[178]0[164]5
  494. 5320 [151]pb[170]i[170]j,f2:[130]:[130]
  495. 5325 pa[178]si[170]23:pw[178]rf[175]15
  496. 5330 pv[178]2900:[142]
  497. 5350 :
  498. 5355 :
  499. 5360 pb[178]fa[170]225
  500. 5365 [129]i[178]0[164]120[169]40:[129]j[178]0[164]3
  501. 5370 [151]pb[170]i[170]j,f2:[130]:[130]
  502. 5375 pa[178]mo[170]23
  503. 5380 pv[178]2955:[142]
  504. 5400 :
  505. 5405 :
  506. 5410 pb[178]fa[170]232
  507. 5415 [151]pb,f2:[151]pb[170]1,f2
  508. 5420 pa[178]mo[170]23:pw[178][194](pa)[175]15
  509. 5425 pm[178]16:p1[178]1:p2[178]1:pv[178]3010:[142]
  510. 5500 :
  511. 5505 :
  512. 5510 :
  513. 5515 m[178]3:[158]cl:[153]"wait";f1$;
  514. 5520 [153]"   orlenlenlenlenlenlen=lenlenlenlen=lenlenlenlen=lenlenlenlenlenlen=lenlenlenlenlen^"
  515. 5525 [153]"   peek lfof peeklfoppeeklfoapeekkurve peekmoduspeek"
  516. 5530 [153]" orlen(NULL)lenlenlenlenlenlen(NULL)lenlenlenlen(NULL)lenlenlenlen(NULL)lenlenlenlenlenlen(NULL)lenlenlenlenlen(NULL)lenlenlenlen^"
  517. 5535 [129]z[178]3[164]9
  518. 5540 [158]pr,z,1,"peek peek      peek    peek    peek      peek     peek    peek"
  519. 5545 [130]z
  520. 5550 [158]pr,10,1,"/len>lenlenlenlenlenlen>lenlenlenlen>lenlenlenlen>lenlenlenlenlenlen>lenlenlenlenlen>lenlenlenlenexp"
  521. 5555 [153]f2$;" f1";f1$;"  ++     ++   ++  trian  reset"
  522. 5560 [153]f2$;" f3";f1$;"  +      +    +   sawup  hold"
  523. 5565 [153]f2$;" f5";f1$;"  -      -    -   sawdwn run"
  524. 5570 [153]f2$;" f7";f1$;"  --     --   --  square"
  525. 5575 [129]ln[178]0[164]6
  526. 5580 z[178]3[170]ln
  527. 5585 [158]pr,z,2,[199](48[170]ln)
  528. 5590 pw[178][183](mo[170]32[170]5[172]ln)
  529. 5595 [158]pr,z,10[171][195]([196](pw)),pw
  530. 5600 pw[178][194](mo[170]34[170]5[172]ln)
  531. 5605 [158]pr,z,15[171][195]([196](pw)),pw
  532. 5610 pw[178][194](mo[170]35[170]5[172]ln)
  533. 5615 [158]pr,z,20[171][195]([196](pw)),pw
  534. 5620 pw[178][194](mo[170]36[170]5[172]ln)
  535. 5625 [158]pr,z,21,kv$((pw[175]24)[173]8)
  536. 5630 [158]pr,z,28,md$((pw[175]6)[173]2)
  537. 5640 [130]ln
  538. 5645 ln[178]0:av[178]5830:[158]gs,av:[142]
  539. 5650 :
  540. 5655 :
  541. 5670 :
  542. 5675 ln[178]ln[171]1:[139]ln[179]0[167]ln[178]6
  543. 5680 [141]5815:[158]gt,av
  544. 5685 :
  545. 5690 ln[178]ln[170]1:[139]ln[177]6[167]ln[178]0
  546. 5695 [141]5815:[158]gt,av
  547. 5700 :
  548. 5705 av[178]av[170]30:[139]av[177]5950[167]av[178]5830
  549. 5710 [141]5810:[158]gt,av
  550. 5715 :
  551. 5720 av[178]av[171]30:[139]av[179]5830[167]av[178]5950
  552. 5725 [141]5810:[158]gt,av
  553. 5800 :
  554. 5805 :
  555. 5810 [158]pr,6,34,"    "
  556. 5815 [129]i[178]pb[164]pb[170]6:[151]i,f1:[130]:[142]
  557. 5820 :
  558. 5825 :
  559. 5830 pb[178]fa[170]40[172](ln[170]3)[170]4
  560. 5835 [129]i[178]pb[164]pb[170]5:[151]i,f2:[130]
  561. 5840 pa[178]mo[170]32[170]5[172]ln:pw[178][183](pa):pm[178]65536
  562. 5845 p1[178]1:p2[178]200:pv[178]2610:[142]
  563. 5850 :
  564. 5855 :
  565. 5860 pb[178]fa[170]40[172](ln[170]3)[170]11
  566. 5865 [129]i[178]pb[164]pb[170]3:[151]i,f2:[130]
  567. 5870 pa[178]mo[170]34[170]5[172]ln:pw[178][194](pa):pm[178]256
  568. 5875 p1[178]1:p2[178]10:pv[178]2640:[142]
  569. 5880 :
  570. 5885 :
  571. 5890 pb[178]fa[170]40[172](ln[170]3)[170]16
  572. 5895 [129]i[178]pb[164]pb[170]3:[151]i,f2:[130]
  573. 5900 pa[178]mo[170]35[170]5[172]ln:pw[178][194](pa):pm[178]256
  574. 5905 p1[178]1:p2[178]10:pv[178]2670:[142]
  575. 5910 :
  576. 5915 :
  577. 5920 pb[178]fa[170]40[172](ln[170]3)[170]21
  578. 5925 [129]i[178]pb[164]pb[170]5:[151]i,f2:[130]
  579. 5930 pa[178]mo[170]36[170]5[172]ln:pv[178]2700
  580. 5935 b[178]([194](pa)[175]24)[173]8:[137]2717
  581. 5940 :
  582. 5945 :
  583. 5950 pb[178]fa[170]40[172](ln[170]3)[170]28
  584. 5955 [129]j[178]pb[164]pb[170]4:[151]j,f2:[130]
  585. 5960 pa[178]mo[170]36[170]5[172]ln
  586. 5965 pv[178]2730:[142]
  587. 6000 :
  588. 6010 :
  589. 6020 :
  590. 6030 m[178]4:[158]cl:[153]"wait";f1$
  591. 6040 [153]" software-eg":[153]:[153]
  592. 6050 [153]" orlenlenlenlen=lenlenlenlen=lenlenlenlen=lenlenlenlen=lenlenlenlen=lenlenlenlenlen=lenlenlenlenlen^"
  593. 6060 [153]" peek  a peek  d peek  s peek  r peek egapeek formpeekmoduspeek"
  594. 6070 [153]" -lenlenlenlen(NULL)lenlenlenlen(NULL)lenlenlenlen(NULL)lenlenlenlen(NULL)lenlenlenlen(NULL)lenlenlenlenlen(NULL)lenlenlenlenlen<"
  595. 6080 [153]" peek    peek    peek    peek    peek    peek     peek     peek"
  596. 6090 [153]" /lenlenlenlen>lenlenlenlen>lenlenlenlen>lenlenlenlen>lenlenlenlen>lenlenlenlenlen>lenlenlenlenlenexp"
  597. 6100 [158]pr,10,1,f2$;"f1":[153]" f3"
  598. 6110 [153]" f5":[153]" f7";f1$
  599. 6120 [158]pr,10,13,"++                  reset"
  600. 6130 [158]pr,11,13,"+               +   hold"
  601. 6140 [158]pr,12,13,"-               -   run"
  602. 6150 [158]pr,13,13,"--"
  603. 6160 [129]i[178]0[164]4
  604. 6170 pw[178][194](mo[170]67[170]i)
  605. 6180 [158]pr,7,6[170]5[172]i[171][195]([196](pw)),pw
  606. 6190 [130]i
  607. 6210 pw[178][194](mo[170]72)
  608. 6220 [158]pr,7,29,[199](43[170](pw[175]8)[173]4)
  609. 6230 [158]pr,7,33,md$((pw[175]6)[173]2)
  610. 6240 av[178]6310:an[178]0:[158]gt,av
  611. 6300 :
  612. 6305 :
  613. 6310 pb[178]fa[170]282[170]5[172]an:s[178]2[170]5[172]an
  614. 6315 [129]i[178]pb[164]pb[170]3:[151]i,f2:[130]
  615. 6320 pa[178]mo[170]67[170]an:pw[178][194](pa)
  616. 6325 pm[178]256:[139]an[178]0[167]pm[178]129
  617. 6330 p1[178]1:p2[178]10:pv[178]2760:[142]
  618. 6335 :
  619. 6340 :
  620. 6345 pb[178]fa[170]280[170]27:[151]pb[170]2,f2
  621. 6350 pa[178]mo[170]72:pv[178]2780:[142]
  622. 6370 :
  623. 6375 :
  624. 6380 pb[178]fa[170]280[170]33
  625. 6385 [129]i[178]pb[164]pb[170]4:[151]i,f2:[130]
  626. 6390 pa[178]mo[170]72:pv[178]2820:[142]
  627. 6395 :
  628. 6400 :
  629. 6405 :
  630. 6410 [139]av[179][177]6310[167]6420
  631. 6415 an[178]an[171]1:[139]an[177][178]0[167]6430
  632. 6420 av[178]av[171]35:an[178]4
  633. 6425 [139]av[179]6310[167]av[178]6380
  634. 6430 [141]5815:[158]gt,av
  635. 6435 :
  636. 6440 [139]av[179][177]6310[167]6450
  637. 6445 an[178]an[170]1:[139]an[179][178]4[167]6460
  638. 6450 av[178]av[170]35
  639. 6455 [139]av[177]6380[167]av[178]6310:an[178]0
  640. 6460 [141]5815:[158]gt,av
  641. 6500 :
  642. 6510 :
  643. 6520 :
  644. 6530 m[178]5:pv[178]0:[153]"wait";:[158]cl
  645. 6540 [158]pr,1,1,f1$;"kreuzschienen-verteiler"
  646. 6550 [158]pr,3,1,"e    lfo"
  647. 6560 [158]pr,4,1,"g6543210"
  648. 6570 [158]pr,5,1,f2$;"totototototototo"
  649. 6580 a$[178]f2$[170]"then"[170]f1$[170]"        "[170]f2$[170]"(NULL) "[170]f1$
  650. 6590 [153]a$;"f1";f2$;"     cursortasten"
  651. 6600 [153]a$;"f2"
  652. 6610 [153]a$;"f3"
  653. 6620 [153]a$;"p1";f2$;"     f1 ";f1$;"verbindung"
  654. 6630 [153]a$;"p2"
  655. 6640 [153]a$;"p3";f2$;"     f7 ";f1$;"keine verbindung"
  656. 6650 [153]a$;"filt"
  657. 6660 [153]a$;"laut"
  658. 6670 [153]f2$;" tab(tab(tab(tab(tab(tab(tab(tab("
  659. 6680 [129]z[178]0[164]7:[141]6730:[130]
  660. 6685 z[178]0:s[178]7:[151]55296[170]40[172](6[170]z)[170]8[171]s,f2
  661. 6690 [142]
  662. 6700 :
  663. 6710 :
  664. 6720 :
  665. 6730 b[178][194](mo[170]24[170]z):a[178]128
  666. 6740 [158]pr,6[170]z,1,f1$;"00000000"
  667. 6750 [139]b[178]0[167][142]
  668. 6760 [129]s[178]7[164]0[169][171]1
  669. 6770 [139](b[175]a)[167][158]pr,6[170]z,8[171]s,"1";
  670. 6780 a[178]a[173]2:[130]s
  671. 6790 [153]f1$;:[142]
  672. 6800 :
  673. 6810 :
  674. 6820 :
  675. 6830 [151]55296[170]40[172](6[170]z)[170]8[171]s,f1
  676. 6840 z[178](z[171]1)[175]7:[137]6910
  677. 6850 [151]55296[170]40[172](6[170]z)[170]8[171]s,f1
  678. 6860 z[178](z[170]1)[175]7:[137]6910
  679. 6870 [151]55296[170]40[172](6[170]z)[170]8[171]s,f1
  680. 6880 s[178](s[170]1)[175]7:[137]6910
  681. 6890 [151]55296[170]40[172](6[170]z)[170]8[171]s,f1
  682. 6900 s[178](s[171]1)[175]7:[137]6910
  683. 6910 [151]55296[170]40[172](6[170]z)[170]8[171]s,f2
  684. 6915 [142]
  685. 6920 :
  686. 6925 :
  687. 6930 :
  688. 6935 ad[178]mo[170]24[170]z
  689. 6940 [151]ad,[194](ad)[176]2[174]s
  690. 6950 [151]1024[170]40[172](6[170]z)[170]8[171]s,177:[142]
  691. 6960 :
  692. 6965 :
  693. 6970 :
  694. 6975 ad[178]mo[170]24[170]z
  695. 6980 [151]ad,[194](ad)[175](255[171]2[174]s)
  696. 6990 [151]1024[170]40[172](6[170]z)[170]8[171]s,176:[142]
  697. 7000 :
  698. 7005 :
  699. 7010 :
  700. 7015 m[178]6:pv[178]0:[158]cl:[153]"wait";f2$
  701. 7020 [158]pr,1,8,"a           b           c"
  702. 7025 [153]f1$;"   orlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen^"
  703. 7030 [129]i[178]1[164]8
  704. 7035 [158]pr,2[170]i,1,f2$;[199](48[170]i);f1$" peek"
  705. 7040 [158]pr,2[170]i,38,"peek":[130]
  706. 7045 [158]pr,11,3,"/lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenexp"
  707. 7050 [158]pr,12,4,f2$;"a-c 1-8"
  708. 7055 [158]pr,12,13,f1$;"sound waehlen"
  709. 7060 [158]pr,13,1,f2$;"_  a-c 1-8"
  710. 7065 [158]pr,13,13,f1$"sound abspeichern"
  711. 7070 [158]pr,14,1,f2$;"n"
  712. 7075 [158]pr,14,13,f1$;"namen eingeben (return)"
  713. 7080 [129]s[178]0[164]2:[129]z[178]0[164]7
  714. 7085 [158]pr,3[170]z,4[170]s[172]12,;
  715. 7090 [158]na,so[170]107[172](8[172]s[170]z)[170]97
  716. 7095 [130]:[130]:[139]ns[179]0[167]z[178]0:s[178]0:[142]
  717. 7100 z[178]ns[175]7:s[178][181](ns[173]8):[137]7180
  718. 7110 :
  719. 7115 :
  720. 7120 x[178]a[171]65
  721. 7122 [158]pr,12,13,f2$;"waitsound waehlen"
  722. 7125 [161]a$:[139]a$[178]""[167]7125
  723. 7130 y[178][198](a$)[171]49
  724. 7135 [139]y[179]0[176]y[177]7[167]7142
  725. 7140 [141]7150:[141]7400
  726. 7142 [158]pr,12,13,f1$;"waitsound waehlen"
  727. 7144 [142]
  728. 7146 :
  729. 7150 :
  730. 7155 ns[178]8[172]s[170]z
  731. 7160 [158]pr,3[170]z,4[170]s[172]12,f1$;"wait";
  732. 7165 [158]na,so[170]107[172]ns[170]97
  733. 7170 :
  734. 7175 s[178]x:z[178]y:ns[178]8[172]s[170]z
  735. 7180 [158]pr,3[170]z,4[170]s[172]12,f2$;"wait";
  736. 7185 [158]na,so[170]107[172]ns[170]97
  737. 7190 [142]
  738. 7200 :
  739. 7205 :
  740. 7210 [158]pr,13,13,f2$;"waitsound abspeichern"
  741. 7215 [161]a$:[139]a$[178]""[167]7215
  742. 7220 x[178][198](a$)[171]65
  743. 7225 [139]x[179]0[176]x[177]2[167]7250
  744. 7230 [161]a$:[139]a$[178]""[167]7230
  745. 7235 y[178][198](a$)[171]49
  746. 7240 [139]y[179]0[176]y[177]7[167]7250
  747. 7245 [141]7150:[141]7450:[137]7260
  748. 7250 [158]pr,13,13,f1$;"waitsound abspeichern"
  749. 7255 [142]
  750. 7260 [158]pr,13,13,f1$;"waitsound abspeichern"
  751. 7300 :
  752. 7305 :
  753. 7310 [158]pr,14,13,f2$;"namen eingeben (return)"
  754. 7315 x[178]12[172]s[170]4:y[178]z[170]3:ad[178]1024[170]40[172]y[170]x
  755. 7320 sa[178]so[170]107[172]ns[170]97:i[178]0
  756. 7325 [151]ad[170]i,[194](ad[170]i)[176]128
  757. 7330 [161]a$:[139]a$[178]""[167]7330
  758. 7335 a[178][198](a$):[139]a[179]32[176]a[177]95[167]7370
  759. 7340 :
  760. 7345 [158]pr,y,x[170]i,f2$;a$;:[151]sa[170]i,a
  761. 7350 i[178]i[170]1
  762. 7355 [139]i[177]9[167]i[178]9:[137]7325
  763. 7360 [139]i[179]0[167]i[178]0
  764. 7365 [137]7325
  765. 7370 [139]a[178]29[167][151]ad[170]i,[194](ad[170]i)[175]127:[137]7350
  766. 7375 [139]a[178]157[167][151]ad[170]i,[194](ad[170]i)[175]127:i[178]i[171]1:[137]7355
  767. 7380 [139]a[179][177]13[167]7330
  768. 7385 [151]ad[170]i,[194](ad[170]i)[175]127
  769. 7390 [158]pr,14,13,f1$;"namen eingeben (return)"
  770. 7395 [142]
  771. 7400 :
  772. 7402 :
  773. 7404 sa[178]so[170]ns[172]107:[158]ge,sa
  774. 7406 [129]i[178]0[164]2
  775. 7408 ad[178]sa[170]7[172]i
  776. 7410 bf(i)[178][183](ad[170]73)
  777. 7412 x[178]bf(i)[173]17.0327[173]440
  778. 7414 y[178][188](x)[173][188](2)
  779. 7416 y[178]y[170]4[170]9[173]12[170]49[173]1200
  780. 7418 o(i)[178][181](y):y[178](y[171]o(i))[172]12
  781. 7420 t(i)[178][181](y)
  782. 7422 of(i)[178][181]((y[171]t(i))[172]100[171]48.5)
  783. 7424 s(i)[178]([194](ad[170]75)[178]1)
  784. 7425 [151]981[170]i,[182](s(i))
  785. 7426 a$[178][199](49[170]i):[141]3570
  786. 7428 c(i)[178][194](ad[170]77)[175]254
  787. 7429 [151]50334[170]i,c(i):[151]984[170]i,c(i)
  788. 7430 c1(i)[178]c(i)[176]1
  789. 7431 [151]987[170]i,c1(i)
  790. 7432 ad(i)[178][194](ad[170]78)
  791. 7434 sr(i)[178][194](ad[170]79)
  792. 7436 [130]i
  793. 7438 rf[178][194](sa[170]94)
  794. 7440 eg[178]([194](sa[170]95)[178]1):[141]3740
  795. 7441 [151]990,[182](eg)
  796. 7442 su[178]([194](sa[170]96)[178]1):[141]3840
  797. 7443 [151]991,[182](su)
  798. 7444 [141]20000:[142]
  799. 7450 :
  800. 7452 :
  801. 7454 sa[178]so[170]ns[172]107:[158]pu,sa
  802. 7456 [129]sn[178]0[164]2
  803. 7458 ad[178]sa[170]7[172]sn
  804. 7460 [158]do,ad[170]73,bf(sn)
  805. 7462 [151]ad[170]75,[171]s(sn)
  806. 7464 [151]ad[170]77,c(sn)
  807. 7466 [151]ad[170]78,ad(sn)
  808. 7468 [151]ad[170]79,sr(sn)
  809. 7470 [130]sn
  810. 7472 [151]sa[170]94,rf
  811. 7474 [151]sa[170]95,[171]eg
  812. 7476 [151]sa[170]96,[171]su
  813. 7478 [142]
  814. 7500 :
  815. 7505 :
  816. 7510 :
  817. 7515 m[178]7:pv[178]0:[158]cl:[153]"";f1$
  818. 7520 [153]" disk"
  819. 7525 [158]pr,5,4,f2$;"f1"
  820. 7530 [158]pr,5,7,f1$;"sounds laden"
  821. 7532 [158]pr,6,4,f2$;"f2"
  822. 7534 [158]pr,6,7,f1$;"song   laden"
  823. 7535 [158]pr,7,4,f2$;"f3"
  824. 7540 [158]pr,7,7,f1$;"sounds abspeichern"
  825. 7545 [142]
  826. 7600 :
  827. 7605 :
  828. 7610 [158]pr,5,7,f2$;"sounds laden"
  829. 7615 [158]pr,10,4,f1$;"dateiname";
  830. 7620 dn$[178]"sounds              "
  831. 7625 [158]pr,10,16,dn$
  832. 7630 [158]pr,10,14,;:[133]dn$
  833. 7632 [158]50198:[141]2140
  834. 7635 [159]8,8,8,dn$[170]",p,r":[160]8
  835. 7640 [159]1,8,15:[132]1,a,a$,x,y:[160]1
  836. 7645 [158]pr,12,4,"                             "
  837. 7650 [139]a[178]0[167]7660
  838. 7655 [158]pr,12,3,a;a$;x;y:[137]7625
  839. 7660 a[178]0:[147]dn$,8,1
  840. 7665 [158]pr,5,7,f1$;"sounds laden"
  841. 7670 ns[178][171]1:a[178]211
  842. 7675 [158]do,56326,[181](6e7[173](24[172]te))
  843. 7680 [139]sr[167][158]51093:[137]1550
  844. 7685 [158]mo[170]1033:[137]1550
  845. 7700 :
  846. 7705 :
  847. 7710 [158]pr,7,7,f2$;"sounds abspeichern"
  848. 7715 [158]pr,10,4,f1$;"dateiname";
  849. 7720 dn$[178]"sounds              "
  850. 7725 [158]pr,10,16,dn$
  851. 7730 [158]pr,10,14,;:[133]dn$
  852. 7735 [158]50198:[141]2140
  853. 7740 :
  854. 7745 [159]1,8,1,"@:"[170]dn$
  855. 7750 [151]252,0:[151]253,144
  856. 7755 [151]780,252
  857. 7760 [151]781,8
  858. 7765 [151]782,154
  859. 7770 [158]65496
  860. 7775 [160]1
  861. 7780 [159]1,8,15:[132]1,a,a$,x,y:[160]1
  862. 7785 [139]a[178]0[167]7795
  863. 7790 [158]pr,12,4,a;a$;x;y:[137]7725
  864. 7795 [158]pr,12,4,"                              "
  865. 7800 [158]pr,7,7,f1$;"sounds abspeichern"
  866. 7805 [158]do,56326,[181](6e7[173](24[172]te))
  867. 7810 [139]sr[167][158]51093:[142]
  868. 7815 [158]50185:[142]
  869. 7900 :
  870. 7905 :
  871. 7910 [158]pr,6,7,f2$;"song   laden"
  872. 7915 [158]pr,10,4,f1$;"dateiname ";
  873. 7920 [158]pr,10,14,;:[133]dn$
  874. 7925 [158]50966:[141]2140
  875. 7930 [159]8,8,8,dn$[170]",p,r":[160]8
  876. 7935 [159]1,8,15:[132]1,a,a$,x,y:[160]1
  877. 7940 [158]pr,12,4,"                             "
  878. 7945 [139]a[178]0[167]7955
  879. 7950 [158]pr,12,3,a;a$;x;y:[137]7920
  880. 7955 a[178]0:m[178]7.5:[147]dn$,8,1
  881. 7960 [158]pr,6,7,f1$;"song   laden"
  882. 7965 m[178]7:sq[178][171]1
  883. 7970 [158]do,56326,[181](6e7[173](24[172]te))
  884. 7975 [158]do,50310,[183](39432)
  885. 7980 [158]51001
  886. 7985 [139][168]sr[167][158]50966
  887. 7990 a[178]65:[137]1550
  888. 8000 :
  889. 8010 :
  890. 8020 :
  891. 8030 [153]"loadreturn       ";
  892. 8035 [153]"bitte 40 sekunden warten"
  893. 8040 :
  894. 8045 :
  895. 8050 [129]i[178]0[164]22
  896. 8055 [151]828[170]i,[194](43139[170]i):[130]
  897. 8060 [129]i[178]0[164]129:[135]x:[151]851[170]i,x:[130]
  898. 8065 [151]785,169:[151]786,3
  899. 8070 :
  900. 8072 :
  901. 8074 [129]i[178]50211[164]50291
  902. 8076 [135]x:[151]i,x:[130]
  903. 8078 :
  904. 8080 :
  905. 8082 [129]i[178]0[164]11:[135]tn$(i):[130]
  906. 8100 :
  907. 8110 :
  908. 8120 [135]a$:l[178][195](a$)
  909. 8130 [145]l[137]8150,8220,8280,8310,8310
  910. 8150 :
  911. 8160 a[178][198](a$)
  912. 8170 [139]m[177][178]0[167]v%(m,a)[178]zn:[137]8120
  913. 8180 [129]i[178]0[164]8:v%(i,a)[178]zn:[130]
  914. 8190 [137]8120
  915. 8200 [139][200](a$,1)[179][177]"m"[167]8120
  916. 8220 :
  917. 8230 [139][200](a$,1)[179][177]"m"[167]8120
  918. 8240 a$[178][201](a$,1)
  919. 8250 [139]a$[178]"a"[167]m[178][171]1:[137]8120
  920. 8260 m[178][197](a$):[137]8120
  921. 8280 :
  922. 8290 a[178][197](a$):[137]8170
  923. 8310 :
  924. 8320 [139]a$[178]"ende"[167]8340
  925. 8330 zn[178][197](a$):[137]8120
  926. 8340 :
  927. 8350 :
  928. 8360 a$[178]"q2w3er5t6y7ui9o0p@-*\^;="
  929. 8370 [129]i[178]0[164]24
  930. 8380 a[178][198]([202](a$,i[170]1,1))
  931. 8390 tn%(a)[178]i
  932. 8400 [129]j[178]0[164]8:v%(j,a)[178]2000:[130]
  933. 8410 [130]i
  934. 8450 :
  935. 8455 :
  936. 8460 [129]i[178]0[164]48:th(i)[178]2[174](i[173]12):[130]
  937. 8465 :
  938. 8470 :
  939. 8472 gs[178]828:gt[178]857:pr[178]869:do[178]897:cl[178]959
  940. 8474 na[178]50229:ge[178]50245:pu[178]50276
  941. 8480 si[178]54272:mo[178]49152:fa[178]55296
  942. 8482 so[178]36864:ci[178]56320
  943. 8484 f1$[178][199](30):f1[178]5
  944. 8490 f2$[178][199](5):f2[178]1
  945. 8495 kv$(0)[178]"trian ":kf$(0)[178]"(NULL)(NULL)(NULL)(NULL)"
  946. 8500 kv$(1)[178]"sawup ":kf$(1)[178]"(NULL)(NULL)(NULL)(NULL)"
  947. 8505 kv$(2)[178]"sawdwn":kf$(2)[178]"sqr(NULL)sqr(NULL)"
  948. 8510 kv$(3)[178]"square":kf$(3)[178]"(NULL)(NULL)(NULL)(NULL)"
  949. 8515 md$(0)[178]"reset":md$(1)[178]"reset"
  950. 8520 md$(2)[178]"hold ":md$(3)[178]"run  "
  951. 8525 bl$(0)[178]"":bl$(1)[178]" ":bl$(2)[178]"  "
  952. 8530 bl$(3)[178]"   ":bl$(4)[178]"    "
  953. 8535 bl$(5)[178]"     ":bl$(6)[178]"      "
  954. 8540 :
  955. 8545 :
  956. 8550 [129]sn[178]0[164]2
  957. 8555 [151]si[170]7[172]sn[170]5,10:ad(sn)[178]10
  958. 8560 [151]si[170]7[172]sn[170]6,138:sr(sn)[178]138
  959. 8565 o(sn)[178]3[170]sn:of(sn)[178]0:t(sn)[178]0
  960. 8570 bf[178]440[172]2[174](o(sn)[171]4[170](t(sn)[171]9)[173]12[170]of(sn)[173]1200)
  961. 8572 bf(sn)[178]bf[172]17.0327
  962. 8575 c(sn)[178]64:c1(sn)[178]65
  963. 8576 [151]984[170]sn,c(sn):[151]987[170]sn,c1(sn)
  964. 8578 [151]50334[170]sn,c(sn)
  965. 8580 s(sn)[178](sn[178]0)
  966. 8582 [151]981[170]sn,[182](s(sn))
  967. 8585 [158]do,mo[170]7[172]sn[170]2,2048
  968. 8590 [151]mo[170]7[172]sn[170]4,0
  969. 8595 [130]sn
  970. 8600 [151]si[170]23,0:rf[178]0
  971. 8605 [158]do,mo[170]21,0
  972. 8610 [151]mo[170]23,15
  973. 8615 [129]i[178]24[164]72
  974. 8620 [151]mo[170]i,0:[130]
  975. 8625 eg[178]0
  976. 8627 [151]50303,0
  977. 8630 su[178]0
  978. 8631 [151]990,[182](eg):[151]991,[182](su)
  979. 8632 te[178]120
  980. 8635 :
  981. 8640 :
  982. 8645 [129]ns[178]0[164]23
  983. 8650 [141]7450
  984. 8655 ad[178]so[170]107[172]ns[170]97
  985. 8660 [129]i[178]ad[164]ad[170]9:[151]i,46:[130]
  986. 8665 [130]ns:ns[178]0
  987. 8666 [141]20000:w[178]1
  988. 8700 :
  989. 8870 :
  990. 8880 [151]53280,0:[151]53281,0
  991. 8890 [153]f1$;"wait";:[151]650,128
  992. 8900 [141]4200
  993. 8910 [158]mo[170]1033
  994. 8920 sq[178]0:sm[178]0:sr[178]0:a[178]2:[142]
  995. 9000 :
  996. 9010 :
  997. 9020 :
  998. 9030 :
  999. 9060 [131]032,089,003,076,174,167,032
  1000. 9070 [131]253,174,032,138,173,032,247
  1001. 9080 [131]183,076,163,168,032,253,174
  1002. 9090 [131]032,158,183,138,072,032,253
  1003. 9100 [131]174,032,158,183,138,168,104
  1004. 9110 [131]170,024,032,240,255,032,253
  1005. 9120 [131]174,076,160,170,032,253,174
  1006. 9130 [131]032,138,173,032,247,183,165
  1007. 9140 [131]020,133,158,165,021,133,159
  1008. 9150 [131]032,253,174,032,138,173,032
  1009. 9160 [131]247,183,160,000,120,165,020
  1010. 9170 [131]145,158,200,165,021,145,158
  1011. 9180 [131]088,096,032,247,183,160,000
  1012. 9190 [131]120,177,020,133,099,200,177
  1013. 9200 [131]020,088,133,098,162,144,056
  1014. 9210 [131]076,073,188,169,032,162,000
  1015. 9220 [131]157,000,004,157,000,005,202
  1016. 9230 [131]208,247,162,087,157,000,006
  1017. 9240 [131]202,016,250,096
  1018. 9250 :
  1019. 9260 :
  1020. 9270 [131]032,253,174,032,138,173,032
  1021. 9280 [131]247,183,165,020,133,158,165
  1022. 9290 [131]021,133,159,096,032,035,196
  1023. 9300 [131]160,000,177,158,032,210,255
  1024. 9310 [131]200,192,010,208,246,096,032
  1025. 9320 [131]035,196,160,000,177,158,153
  1026. 9330 [131]000,192,200,192,073,208,246
  1027. 9340 [131]177,158,153,183,211,200,192
  1028. 9350 [131]094,208,246,177,158,141,023
  1029. 9360 [131]212,096,032,035,196,160,000
  1030. 9370 [131]185,000,192,145,158,200,192
  1031. 9380 [131]073,208,246,096
  1032. 9400 :
  1033. 9410 :
  1034. 9420 [131]c,c#,d,d#,e,f,f#,g,g#,a,a#,h
  1035. 9500 :
  1036. 9510 :
  1037. 9520 [131]ma,4000,x,3500,v,3600,032
  1038. 9530 [131]ma,3700,160,3800,s,9990,a
  1039. 9540 [131]ma,2550,133,2560,134
  1040. 9550 [131]ma,2570,135,2580,136,4500,214
  1041. 9555 [131]ma,5500,l,6000,h,6500,k
  1042. 9560 [131]ma,5000,f,7000,211,7500,d
  1043. 9565 [131]m1,4654,145,4660,017
  1044. 9570 [131]m1,4666,029,4680,157
  1045. 9580 [131]m2,5160,157,5145,029
  1046. 9600 [131]m3,5675,145,5690,017
  1047. 9610 [131]m3,5720,157,5705,029
  1048. 9620 [131]m4,6410,157,6440,029
  1049. 9630 [131]m5,6830,145,6850,017
  1050. 9640 [131]m5,6870,157,6890,029
  1051. 9650 [131]m5,6935,133,134,6975,135,136
  1052. 9700 [131]m6,7110,a,b,c,7200,_,7300,n
  1053. 9750 [131]m7,7600,133,7700,134,7900,137
  1054. 9800 [131]m8,10420,029,10450,157
  1055. 9900 [131]ende
  1056. 9990 :
  1057. 10000 :
  1058. 10010 :
  1059. 10020 :
  1060. 10030 m[178]8:pv[178]0:[158]cl:[153]"";f1$;
  1061. 10040 [153]" sequencer";
  1062. 10045 [139][168]sq[167][153]"  (kein song vorhanden)"
  1063. 10050 [158]pr,4,10,"tempo modus seqnr  soft-eg"
  1064. 10060 [158]pr,5,4,"orlenlenlenlen=lenlenlenlenlen=lenlenlenlenlen=lenlenlenlenlen=lenlenlenlenlenlenlenlenlen^"
  1065. 10070 [158]pr,6,4,"peek    peek     peek     peek     peek 1  2  3 peek"
  1066. 10080 [158]pr,7,4,"/lenlenlenlen>lenlenlenlenlen>lenlenlenlenlen>lenlenlenlenlen>lenlenlenlenlenlenlenlenlenexp"
  1067. 10090 [158]pr,9,1,f2$;"f1";f1$;"  reset  ++                  1"
  1068. 10100 [158]pr,10,1,f2$;"f3";f1$;"  stop    +  song    +       2"
  1069. 10110 [158]pr,11,1,f2$;"f5";f1$;"  run     -  seq     -       3"
  1070. 10120 [158]pr,12,1,f2$;"f7";f1$;"         --"
  1071. 10130 [139]sr[167]10150
  1072. 10140 [158]pr,6,5,"stop":[137]10160
  1073. 10150 [158]pr,6,5,"run "
  1074. 10160 [158]pr,6,11,[201]([196](te),3)
  1075. 10170 [139]sm[167]10190
  1076. 10180 [158]pr,6,16,"song":[137]10210
  1077. 10190 [158]pr,6,16,"seq "
  1078. 10200 [158]pr,6,22,[201](" "[170][196](se),3)
  1079. 10210 :
  1080. 10220 x[178][194](50303)
  1081. 10230 [139]x[175]1[167][158]pr,6,28," 1 "
  1082. 10240 [139]x[175]2[167][158]pr,6,31," 2 "
  1083. 10250 [139]x[175]4[167][158]pr,6,34," 3 "
  1084. 10300 av[178]10500:[158]gs,av:[142]
  1085. 10400 :
  1086. 10410 :
  1087. 10420 :
  1088. 10430 av[178]av[170]100:[139]av[177]10900[167]av[178]10500
  1089. 10440 [137]10470
  1090. 10450 :
  1091. 10460 av[178]av[171]100:[139]av[179]10500[167]av[178]10900
  1092. 10470 [129]i[178]pb[164]pb[170]8:[151]i,f1:[130]
  1093. 10480 [158]gt,av
  1094. 10500 :
  1095. 10510 :
  1096. 10520 pb[178]fa[170]245
  1097. 10530 [129]i[178]pb[164]pb[170]3:[151]i,f2:[130]
  1098. 10540 pa[178]ci[170]12:pv[178]11000:[142]
  1099. 10600 :
  1100. 10610 :
  1101. 10620 pb[178]fa[170]250
  1102. 10630 [129]i[178]pb[164]pb[170]3:[151]i,f2:[130]
  1103. 10640 pa[178]ci[170]6:pw[178]te
  1104. 10650 pm[178]500:p1[178]1:p2[178]10:pv[178]3400:[142]
  1105. 10700 :
  1106. 10710 :
  1107. 10720 pb[178]fa[170]256
  1108. 10730 [129]i[178]pb[164]pb[170]3:[151]i,f2:[130]
  1109. 10740 pa[178]50345:pw[178][194](pa)
  1110. 10750 pv[178]11100:[142]
  1111. 10800 :
  1112. 10810 :
  1113. 10820 pb[178]fa[170]262
  1114. 10830 [129]i[178]pb[164]pb[170]2:[151]i,f2:[130]
  1115. 10840 pw[178]se:p1[178]1:p2[178]1:pm[178]1000
  1116. 10850 pv[178]11200:[142]
  1117. 10900 :
  1118. 10910 :
  1119. 10920 pb[178]fa[170]268
  1120. 10930 [129]i[178]pb[164]pb[170]8:[151]i,f2:[130]
  1121. 10940 pa[178]50303:pv[178]11300:[142]
  1122. 11000 :
  1123. 11010 :
  1124. 11015 [139][168]sq[167][142]
  1125. 11020 [139]a[179]133[176]a[177]135[167][142]
  1126. 11030 [145]a[171]132[137]11040,11060,11080
  1127. 11040 :
  1128. 11042 [139]sm[167][158]51116:[142]
  1129. 11045 [158]51001
  1130. 11050 [139][168]sr[167][158]50966
  1131. 11055 [142]
  1132. 11060 :
  1133. 11065 [158]50966:[158]pr,6,5,f2$;"stop"
  1134. 11070 sr[178]0:[139][168]su[167]2140
  1135. 11075 [142]
  1136. 11080 :
  1137. 11085 [158]51093:[158]pr,6,5,f2$;"run"
  1138. 11090 sr[178][171]1:[142]
  1139. 11100 :
  1140. 11110 :
  1141. 11112 [139][168]sq[167][142]
  1142. 11115 [139]a[178]134[167]11130
  1143. 11120 [139]a[178]135[167]11150
  1144. 11125 [142]
  1145. 11130 :
  1146. 11135 sm[178]0:[151]pa,0
  1147. 11140 [158]pr,6,16,f2$;"song"
  1148. 11145 [158]pr,6,22,"     ":[142]
  1149. 11150 :
  1150. 11155 sm[178][171]1:[151]pa,1:[158]pr,6,16,"seq "
  1151. 11160 [158]pr,6,16,f2$;"seq "
  1152. 11165 se[178]([183](50312)[171][183](50310))[173]3[170]1
  1153. 11170 [158]pr,6,22,f1$;[201](" "[170][196](se),3)
  1154. 11175 [142]
  1155. 11200 :
  1156. 11210 :
  1157. 11220 [139][168]sm[167][142]
  1158. 11230 [139]pw[178]0[167]pw[178]1:[142]
  1159. 11240 ad[178][183](50310)[170](pw[171]1)[172]3
  1160. 11250 [139][183](ad)[178]0[167]pw[178]pw[171]1:[142]
  1161. 11260 [158]do,50312,ad:se[178]pw
  1162. 11270 [158]do,50314,[183](ad)
  1163. 11280 [158]51116
  1164. 11285 [158]pr,6,22,f2$;[201](" "[170][196](se),3)
  1165. 11290 [142]
  1166. 11300 :
  1167. 11310 :
  1168. 11320 x[178][194](pa)
  1169. 11330 [129]i[178]0[164]2
  1170. 11340 [139]a[179][177]133[170]i[167]11420
  1171. 11350 y[178]2[174]i
  1172. 11360 [139](x[175]y)[167]11400
  1173. 11370 x[178]x[176]y:[151]pa,x
  1174. 11380 [158]pr,6,28[170]3[172]i,f2$;"";i[170]1;"cmd "
  1175. 11390 [137]11420
  1176. 11400 x[178]x[175](255[171]y):[151]pa,x
  1177. 11410 [158]pr,6,28[170]3[172]i,f2$;i[170]1;"cmd "
  1178. 11420 [130]i:[142]
  1179. 20000 [139]w[178]1[167][158]pr,18,1,;"sh w     wersiboard stimmenwait"
  1180. 20010 [129]xx[178]0[164]2:zz[178][171]2
  1181. 20020 [129]yy[178]0[164]48
  1182. 20025 zz[178]zz[170]2
  1183. 20030 ww[178]th(yy)[172]bf(xx)
  1184. 20040 [139]ww[177]65535[167]ww[178]0
  1185. 20050 [158] do,52950[170](98[172]xx)[170]zz,ww
  1186. 20060 [130]yy,xx
  1187. 20070 [139]w[178]1[167][158]pr,18,1,;"sh w     wersiboard stimmen"
  1188. 20080 [142]
  1189.